home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 17 / Hot Mix 17.iso / HM17_SGI / research / examples / object / penta.pro < prev    next >
Text File  |  1997-07-08  |  613b  |  22 lines
  1. ;------------------------------------------------------------
  2. ; This procedure file defines the procedure penta, which
  3. ; is used as an example in Chapter 7 of _Objects and Object
  4. ; Graphics_. 
  5. ;-------------------------------------------------------------
  6.  
  7. PRO penta, MODEL=m1, COLOR=color, SYMBOL=p1, VIEW=v1
  8.  
  9. IF KEYWORD_SET(color) THEN COLOR=color ELSE COLOR=[0,0,255]
  10.  
  11. v1 = OBJ_NEW('IDLgrView', VIEW=[-1,-1,2,2])
  12. m1 = OBJ_NEW('IDLgrModel')
  13. p1 = OBJ_NEW('IDLgrPolygon', [-0.8,0.0,0.8,0.4,-0.4], $
  14.              [0.2,0.8,0.2,-0.8,-0.8], COLOR=color)
  15. v1 -> Add, m1
  16. m1 -> Add, p1
  17. model = m1
  18. sym = p1
  19. view = v1
  20.  
  21. END
  22.